home *** CD-ROM | disk | FTP | other *** search
/ French Postcards Plus / 350a_French_Postcards.dsk / BEACH SCENE.bas < prev    next >
BASIC Source File  |  2020-07-23  |  1KB  |  47 lines
  1. 10 D$ =  CHR$(4)
  2. 500  PRINT D$;"BLOAD HIRES SCRUNCH"
  3. 590  FOR I = 770 TO 790
  4. 600  READ J
  5. 610  POKE I,J
  6. 620  NEXT 
  7. 630  DATA  173,48,192,136,208,5
  8. 640  DATA  206,1,3,240,9,202,208
  9. 650  DATA  245,174,0,3,76,2,3,96
  10. 1000  HOME 
  11. 1020  VTAB 10: PRINT "WHAT A BEAUTIFUL DAY!  AND WHAT A CHICK IN THE BIKINI!! I WONDER IF SHE'D LIKE  A LITTLE ROMP IN THE SAND?"
  12. 1025  FOR G1 = 1 TO 5000: NEXT G1
  13. 1030 A = 1
  14. 1040  PRINT D$;"BLOAD PIC.SAND1,A$7000": GOSUB 5000
  15. 1050  GOSUB 1250
  16. 1060  VTAB 22: PRINT "MIND IF I JOIN YOU FOR A LITTLE WHILE?  "
  17. 1065  FOR G1 = 1 TO 3500: NEXT G1
  18. 1070  PRINT D$;"BLOAD PIC.SAND3,A$7000": GOSUB 5010
  19. 1080  VTAB 22: PRINT "THIS IS WHAT I LOVE ABOUT BEING A                LIFEGUARD!!"
  20. 1085  FOR G1 = 1 TO 3000: NEXT G1
  21. 1090  PRINT D$;"BLOAD PIC.SAND2,A$7000": GOSUB 5000
  22. 1100  POKE  -16302,0
  23. 1110  GOSUB 1160
  24. 1120  POKE  -16299,0
  25. 1130  GOSUB 1170
  26. 1140  POKE  -16300,0
  27. 1150  GOTO 1110
  28. 1160  REM 
  29. 1170  FOR I = 1 TO 50  STEP A
  30. 1180 TN = 200 -2 *A -I
  31. 1190  POKE 768,TN: POKE 769,10
  32. 1200  CALL 770
  33. 1210  NEXT 
  34. 1220 A = A +1
  35. 1230  IF A >99  THEN 1285
  36. 1240  RETURN 
  37. 1250  POKE  -16297,0
  38. 1260  POKE  -16304,0
  39. 1270  POKE  -16301,0
  40. 1280  RETURN 
  41. 1285  REM 
  42. 1290  PRINT  CHR$(4);"RUN MENU"
  43. 1300  END 
  44. 5000  POKE 24582,0: POKE 24583,32: POKE 24584,255: POKE 24585,63: POKE 24587,112: CALL 24579
  45. 5001  RETURN 
  46. 5010  POKE 24582,0: POKE 24583,64: POKE 24584,255: POKE 24585,95: POKE 24587,112: CALL 24579
  47. 5011  RETURN